home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
comm
/
zmenu_v2.zip
/
ZMNULGN.T
< prev
next >
Wrap
Text File
|
1990-04-23
|
3KB
|
158 lines
:: This branch table becomes an "obey" command in Pro-YAM
if ifc7,cpcug goto cpcug
if ifc7,freesp goto freesp
if ifc7,freesp2 goto freesp
if ifc7,tedi goto tedi
if ifc7,mframe goto mframe
if ifc7,glib goto glib
if ifc7,customs goto customs;: example of IBM mainframe connection
if ifc7,vfassoc goto vfassoc
if ifc7,vaxlug goto vaxlug
if ifc7,vaxlug goto vaxlug
rmtsysexit: if !c||!jfc5,y goto rmtsysnogo
kill
lput "\E[s\E[35;1m\E[1;1H==> In session with %fc6\E[K\E[u"
sleep 10
return
rmtsysnogo: echo " NOT CONNECTED NOW "
echo " SCRIPT %fc7 FAILED ";sleep 20
return
vaxlug: goback rmtsysexit
cpcug:
pat;
pat 0 "First Name?"
wait
put "%fc11\r"
pat 0 "Last Name?"
wait
put "%fc12\r"
pat 0 "Password (dots echo)?"
wait
put "%fc8\r"
goback rmtsysexit
freesp2:
freesp:
pat;
pat 0 "[N]one ?"
wait
put "c\r"
pat 0 "your name, or type"
wait
put "%fc11 %fc12\r"
pat 0 "Password?"
wait
put "%fc8\r"
goback rmtsysexit
mframe:
pat
pat 0 "color (Enter)=no?"
wait
put "y\r"
pat 0 "first name?"
wait
put "%fc11\r"
pat 0 "last name?"
wait
put "%fc12\r"
pat 0 "Password (Dots will echo)?"
wait
put "%fc8\r"
goback rmtsysexit
glib:
pat;
pat 1 "Name?"
wait -f5
put "%fc11;%fc12;%fc10,%fc9;%fc8\r"
pat 1 "orrect?"
wait -f5
put "y"
goback rmtsysexit
customs:
ena -8g
source zmnu3270.kbd
kermit pi1
pattern;
pattern 1 "menu"
pattern 2 "@"
put "\r"
wait
if 2 goto recover
put "TVI950\r"
pattern 1 "LAW"
wait
put "tpx\r"
pat 1 "law."
wait
put "%fc4\t%fc3\r"
goback rmtsysexit
recover:
pattern; speed 2400
pat 1 "OK"
put "+++";sleep 5;put "ATH\r"
wait -f1
if 1 echo " OK, BAD LINE HUNG UP, RE-DO CALL "
if !1 goback recover
goback rmtsysexit
tedi:
pat;
pat 0 "[N]one ?"
wait
put "c\r"
pat 0 "your name, or type"
wait
put "%fc11 %fc12\r"
pat 0 "Password?"
wait
put "%fc8\r"
goback rmtsysexit
vfassoc:
pat
pat 0 "(Enter)=no?"
wait
put "y\r"
pat 0 "first name?"
wait
put "%fc11\r"
pat 0 "last name?"
wait
put "%fc12\r"
pat 0 "Password (Dots will echo)?"
wait
put "%fc8\r"
goback rmtsysexit
dcinfo:
pat
pat 0 "(Enter)=no?"
wait
put "y\r"
pat 0 "first name?"
wait
put "%fc11\r"
pat 0 "last name?"
wait
put "%fc12\r"
pat 0 "Password (Dots will echo)?"
wait
put "%fc8\r"
goback rmtsysexit
colboard:
pat
pat 0 "ANSI graphics? [y/n]"
wait
put "y\r"
pat 0 "FIRST name: \E[0m"
wait
put "%fc11\r"
pat 0 "LAST name: \E[0m"
wait
put "%fc12\r"
pat 0 "[\E[33my/n\E[32m]: \E[0m"
wait
put "y\r"
pat 0 "Password: \E[9m"
wait
put "%fc8\r"
goback rmtsysexit
omen:
goback rmtsysexit